home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / vbkontrol.exe / IPD_102N.ZIP / ECHO.FRM next >
Text File  |  1995-01-25  |  2KB  |  73 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "ECHO"
  4.    ClientHeight    =   4590
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7305
  8.    Height          =   4995
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4590
  12.    ScaleWidth      =   7305
  13.    Top             =   1140
  14.    Width           =   7425
  15.    Begin IPDAEMON IPDaemon1 
  16.       EOL             =   ""
  17.       InBufferSize    =   2048
  18.       Left            =   4560
  19.       Linger          =   -1  'True
  20.       OutBufferSize   =   2048
  21.       Port            =   0
  22.       Top             =   120
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Start Listening"
  26.       Height          =   375
  27.       Left            =   5160
  28.       TabIndex        =   0
  29.       Top             =   120
  30.       Width           =   1695
  31.    End
  32. End
  33.  
  34. Sub Command1_Click ()
  35.  
  36. IPDaemon1.Listening = False
  37. IPDaemon1.Port = 7
  38. IPDaemon1.Listening = True
  39.  
  40. End Sub
  41.  
  42. Sub Form_Paint ()
  43.  
  44. Cls
  45. Print "You can test by clicking on the button:"
  46. Print "...and then telnet-ing to " & IPDaemon1.LocalHostName & " 7"
  47. Print "...from this machine, or another machine."
  48. Print ""
  49.  
  50.  
  51. End Sub
  52.  
  53. Sub IPDaemon1_Connected (ConnectionID As Integer, StatusCode As Integer, Description As String)
  54.  
  55. Print "Connected to: " & IPDaemon1.RemoteHost(ConnectionID)
  56.  
  57. End Sub
  58.  
  59. Sub IPDaemon1_DataIn (ConnectionID As Integer, Text As String, EOL As Integer)
  60.  
  61. Print IPDaemon1.RemoteHost(ConnectionID) & " says: " & Text
  62. Print ">>> I say: " & Text
  63. IPDaemon1.DataToSend(ConnectionID) = Text
  64.  
  65. End Sub
  66.  
  67. Sub IPDaemon1_Disconnected (ConnectionID As Integer, StatusCode As Integer, Description As String)
  68.  
  69. Print "Disconnected: ConnectionID = " & ConnectionID & " - Address forgotten :-)."
  70.  
  71. End Sub
  72.  
  73.